function c = NevadaSteps(filena)

n = linecount(filena);

fid = fopen(filena);

c = cell(n,3);
for k = 1:n
    tlinek = fgetl(fid);
    if numel(tlinek) >= 16
        namelk = tlinek(1:4);
        datelk = tlinek(7:13);
        indexlk = tlinek(16);
        c(k,1) = {namelk};
        c(k,2) = {datelk};
        c(k,3) = {indexlk};
    end
end

fclose(fid);

%% Ancillary functions

function n = linecount(filena)
% counts the lines of the ASCII file filena
fid = fopen(filena);
n = 0;
tline = fgetl(fid);
while ischar(tline)
    tline = fgetl(fid);
    n = n+1;
end
fclose(fid); 